object BuscaCompraForm: TBuscaCompraForm
  Left = 192
  Top = 128
  Caption = 'BUSCAR COMPRA'
  ClientHeight = 466
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 792
    Height = 67
    Align = alTop
    Color = clBlack
    ParentBackground = False
    TabOrder = 0
    object Label2: TLabel
      Left = 199
      Top = 5
      Width = 74
      Height = 24
      Caption = 'CODIGO'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 388
      Top = 5
      Width = 61
      Height = 24
      Caption = 'LETRA'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 5
      Width = 148
      Height = 24
      Caption = 'COMPROBANTE'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object codigoEdit: TEdit
      Left = 199
      Top = 27
      Width = 183
      Height = 32
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object LetraEdit: TEdit
      Left = 388
      Top = 27
      Width = 183
      Height = 32
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object ComprobanteEdit: TEdit
      Left = 8
      Top = 27
      Width = 183
      Height = 32
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 692
    Top = 67
    Width = 100
    Height = 399
    Align = alRight
    BevelOuter = bvLowered
    Color = clBlack
    ParentBackground = False
    TabOrder = 1
    object imprimir_exportarImage: TImage
      Left = 11
      Top = 173
      Width = 80
      Height = 50
      Cursor = crHandPoint
      Hint = 'IMPRIMIR O EXPORTAR'
      Center = True
      DragCursor = crDefault
      ParentShowHint = False
      Picture.Data = {
        0954474946496D61676547494638396150003200C41F0069C7EAB154D954B0D3
        D890F688CFE9E9F5FCCEEDF901AEEEB9E6F7CC68F6B727F4EED6F73AA7D09A17
        D1C645FCA9D9EBE5BCF7A106E2D5A2EB1A9ED02FC4FB31B2E19E2CCEA541D075
        52D00AA2DB93DFFCC585E0BB6EDCB100FB00B7FBFFFFFF21FF0B584D50204461
        7461584D503C3F787061636B657420626567696E3D22EFBBBF222069643D2257
        354D304D7043656869487A7265537A4E54637A6B633964223F3E203C783A786D
        706D65746120786D6C6E733A783D2261646F62653A6E733A6D6574612F222078
        3A786D70746B3D2241646F626520584D5020436F726520352E302D6330363020
        36312E3133343737372C20323031302F30322F31322D31373A33323A30302020
        202020202020223E203C7264663A52444620786D6C6E733A7264663D22687474
        703A2F2F7777772E77332E6F72672F313939392F30322F32322D7264662D7379
        6E7461782D6E7323223E203C7264663A4465736372697074696F6E207264663A
        61626F75743D222220786D6C6E733A786D705269676874733D22687474703A2F
        2F6E732E61646F62652E636F6D2F7861702F312E302F7269676874732F222078
        6D6C6E733A786D704D4D3D22687474703A2F2F6E732E61646F62652E636F6D2F
        7861702F312E302F6D6D2F2220786D6C6E733A73745265663D22687474703A2F
        2F6E732E61646F62652E636F6D2F7861702F312E302F73547970652F5265736F
        75726365526566232220786D6C6E733A786D703D22687474703A2F2F6E732E61
        646F62652E636F6D2F7861702F312E302F2220786D705269676874733A4D6172
        6B65643D2246616C73652220786D704D4D3A4F726967696E616C446F63756D65
        6E7449443D22757569643A374445434434434332343039453031314233464644
        31344646303532453943342220786D704D4D3A446F63756D656E7449443D2278
        6D702E6469643A32313332393531323339304331314530384441354537424141
        323541343035312220786D704D4D3A496E7374616E636549443D22786D702E69
        69643A3231333239353131333930433131453038444135453742414132354134
        3035312220786D703A43726561746F72546F6F6C3D2241646F62652050686F74
        6F73686F70204353352057696E646F7773223E203C786D704D4D3A4465726976
        656446726F6D2073745265663A696E7374616E636549443D22786D702E696964
        3A41333143304132393041333945303131384338384430324131363534453330
        35222073745265663A646F63756D656E7449443D22757569643A374445434434
        4343323430394530313142334646443134464630353245394334222F3E203C2F
        7264663A4465736372697074696F6E3E203C2F7264663A5244463E203C2F783A
        786D706D6574613E203C3F787061636B657420656E643D2272223F3E01FFFEFD
        FCFBFAF9F8F7F6F5F4F3F2F1F0EFEEEDECEBEAE9E8E7E6E5E4E3E2E1E0DFDEDD
        DCDBDAD9D8D7D6D5D4D3D2D1D0CFCECDCCCBCAC9C8C7C6C5C4C3C2C1C0BFBEBD
        BCBBBAB9B8B7B6B5B4B3B2B1B0AFAEADACABAAA9A8A7A6A5A4A3A2A1A09F9E9D
        9C9B9A999897969594939291908F8E8D8C8B8A898887868584838281807F7E7D
        7C7B7A797877767574737271706F6E6D6C6B6A696867666564636261605F5E5D
        5C5B5A595857565554535251504F4E4D4C4B4A494847464544434241403F3E3D
        3C3B3A393837363534333231302F2E2D2C2B2A292827262524232221201F1E1D
        1C1B1A191817161514131211100F0E0D0C0B0A090807060504030201000021F9
        040100001F002C00000000500032008469C7EAB154D954B0D3D890F688CFE9E9
        F5FCCEEDF901AEEEB9E6F7CC68F6B727F4EED6F73AA7D09A17D1C645FCA9D9EB
        E5BCF7A106E2D5A2EB1A9ED02FC4FB31B2E19E2CCEA541D07552D00AA2DB93DF
        FCC585E0BB6EDCB100FB00B7FBFFFFFF05FFE0278E64699E68AAAE6CEBBE702C
        CF746DDF78AEEF7CEFFFC0A070482C1A8FC8A4723973741CC4402320734299D8
        9355D4E90C065DC562E1F48E0211CEA0D1B8404617CB8663A1D2A91FF6371211
        93BB03235B1F0A1D094E0A29835D8C618D11811F52166C0D16166F92179B171C
        1F749E79950D7C0A7C8C9183858C89288B5D6F096105051D7D22520D810B7178
        019B0B1FC1A022940D6F1CA5B46122AAB0C28A4F5CD21F601D12CDB7926D2312
        1617C10101A1221C9DC516A1127CD81F88CDD485AD2AAF0922D69909DA52E4BC
        E09F01DA89D870EEC3A50D22D645C8D7A195337B2B5E45C227425F2B7E237805
        18C641E0870D01101AB4D04E029B7CDA1EFFB29078EFD9078BB8B889807061E3
        A78E24408ABC54F264C594F10CADA406A865079417D9205C202ED41C8F033888
        8CD3F3D84F874121D2236AA69A4B98DB2E7DAB9969C3864CF7A48AA09AD0E74B
        A0570A698D76A5A8D7A33F2DC4DC20611387600907A0FD2041ED874DED30B805
        AB1288149137184C00E00301050F1E28181041C0C3010D222A64A85000018674
        0018087850808481070860B7FE5040C06A010C084CD8BDFB016D00190E1CA080
        400480CC1A30CF468100B3730F9B0B5CA6508040860CBE4D37C0C0A0BB00CA22
        1E1020207E7C74DBDD73F3EE5D4074F003CA3F1C7FBEFC04660AB4A78B68EE01
        C0810CE06987416B0FD8561C02001010DDFF030000400B6E02B4B69964E05997
        416BFC81361F689BA5C05F87FCCD769C7007CC86C06EC589601B011F1000806F
        2214D0206BB8B13802852510901C661AC6B7C28ECF619662019E1D60E307274E
        B01C0102B0D8608AC6BD581B03308A80A371EF39D7237E2C001924684862F6D9
        080864A0E40804E4F681812400B05A01DD55F9C195D61D008006447AB0650B1F
        9E209D98078068269435CAD7E408B50980009C5492706505768A60008FF265D6
        429E5CCED75A671E3437DC7ED731B0D903717E50E06ABFD9464BA92388061EA4
        D4FDA967A55C7619E4ACFC51A681702C9669E66EDE8DE0A66DE845C72A96D78D
        27DC97B4BE60D97D294E27A27008F88AE0366E4786879E82311EFB8101EE81B6
        2371C7E1576E10BED697850EE9AEEBEEBBF0C62BEFBCF4D66BEFBDF8E6ABEFBE
        FCF6EBEFBF3B8400003B}
      ShowHint = True
      OnClick = imprimir_exportarImageClick
    end
    object SiBitBtn: TBitBtn
      Left = 11
      Top = 321
      Width = 80
      Height = 50
      Caption = 'procesar'
      DoubleBuffered = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Kind = bkYes
      ParentDoubleBuffered = False
      ParentFont = False
      TabOrder = 0
      OnClick = SiBitBtnClick
    end
    object todoBitBtn: TBitBtn
      Left = 11
      Top = 20
      Width = 80
      Height = 50
      Caption = 'TODO'
      DoubleBuffered = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        F2010000424DF201000000000000760000002800000024000000130000000100
        0400000000007C01000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
        3333333333388F3333333333000033334224333333333333338338F333333333
        0000333422224333333333333833338F33333333000033422222243333333333
        83333338F3333333000034222A22224333333338F33F33338F33333300003222
        A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
        38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
        2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
        0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
        333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
        33333A2224A2233333333338F338F83300003333333333A2224A333333333333
        8F338F33000033333333333A222433333333333338F338F30000333333333333
        A224333333333333338F38F300003333333333333A223333333333333338F8F3
        000033333333333333A3333333333333333383330000}
      NumGlyphs = 2
      ParentDoubleBuffered = False
      ParentFont = False
      TabOrder = 1
      OnClick = todoBitBtnClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 67
    Width = 692
    Height = 399
    Align = alClient
    DataSource = DS
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    OnKeyDown = DBGrid1KeyDown
    Columns = <
      item
        Expanded = False
        FieldName = 'COMPROBANTE'
        Width = 93
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FECHA'
        Width = 131
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OPERACION'
        Title.Caption = 'NRO'
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LETRA'
        Title.Caption = 'L'
        Width = 15
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NOMBRE'
        Width = 118
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESCRIPCION'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PRECIO'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TOTAL'
        Width = 92
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PAGADO'
        Width = 86
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESCUENTO'
        Width = 92
        Visible = True
      end>
  end
  object DS: TDataSource
    DataSet = Tabla
    Left = 110
    Top = 384
  end
  object Tabla: TIBQuery
    Database = DM.BaseDatos
    Transaction = DM.Transaccion
    SQL.Strings = (
      'SELECT    '#39'proveedor'#39'  As Empresa,'
      '          "Proveedor".NOMBRE,   "Proveedor".TITULAR,'
      
        '          "Proveedor".DIRECCION,   "Proveedor".DIRECCIONCOMERCIA' +
        'L,'
      '          "Articulo".DESCRIPCION,   "CompraItem".OPERACION,'
      '          "CompraItem".ARTICULO,   "CompraItem".CANTIDAD,'
      '          "CompraItem".PRECIO,'
      
        '          ("CompraItem".PRECIO * "CompraItem".CANTIDAD ) as PREX' +
        'CANT,'
      
        '          "CompraItem".SERVICIO,   "CompraItem".DESCRIPCION AS D' +
        'ESCR,'
      '          "Compra".CODIGO,   "Compra".LETRA,   "Compra".FECHA,'
      
        '          "Compra".COMPROBANTE,   "Compra".IVA3,   "Compra".TOTA' +
        'L,'
      
        '          "Compra".CONTADO,   "Compra".Proveedor,   "Compra".SUB' +
        'TOTAL,'
      
        '          "Compra".DESCUENTO,   "Compra".IMPUESTO,   "Compra".IV' +
        'A2,'
      '          "Compra".IVA1,   "Compra".EXCENTO,   "Compra".SALDO,'
      '          "Compra".PAGADO  FROM   "Compra"'
      
        '          INNER JOIN "CompraItem" ON ("Compra".CODIGO = "CompraI' +
        'tem".OPERACION)'
      
        '          INNER JOIN "Articulo" ON ("CompraItem".ARTICULO = "Art' +
        'iculo".CODIGO)'
      
        '          INNER JOIN "Proveedor" ON ("Compra".Proveedor = "Prove' +
        'edor".CODIGO)'
      '')
    Left = 77
    Top = 382
  end
end
